home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / A-Monthly Disks / (c)aat.d64 / menu creator (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  4KB  |  73 lines
  1. 0 GOTO10000:REM "$0:*=P"
  2. 7 SYS65418:K=PEEK(45)+PEEK(46)*256:A=K-911:P=K-825:SYSA:T$(0)=",8":T$(1)=",8,1"
  3. 8 LN$="[192][192][192][192][192][192][192][192][192][192]":LN$="[150]"+LN$+LN$+LN$+LN$
  4. 9 POKE53280,12:POKE53281,0:Y=1:R$(0)="":R$(1)="[146][154]":X(0)=2:X(1)=22
  5. 12 READN:N=N-1:DIMS(N),F$(N),T(N),E$(N):FORI=0TON:READS(I),F$(I),T(I),E$(I):NEXT
  6. 15 PRINT"[147]"CHR$(9)CHR$(142)CHR$(8):Y=0:SYSP,14,0:PRINT"[154][213][178][201][213][192][201][213][201][201][213] [201]"
  7. 18 SYSP,14,1:PRINT"[221][221][221][171][192] [221][221][221][221] [221]"
  8. 21 SYSP,14,2:PRINT"[156][202] [203][202][192][203][202][202][203][202][192][203]":MX=15:IFMX>(N-G)THENMX=N-G
  9. 24 SYSP,8,4:PRINT"CREATED BY:  ROCKY MOORE":R=1:SYSP,0,8:PRINTLN$
  10. 25 SYSP,2,6:PRINT"[159]KLAMATH FALLS OR. USER GROUP LIBRARY"
  11. 27 FORY=0TOMX:GOSUB57:NEXT:Y=0:SYSP,5,22:PRINT"[156]USE CURSOR KEY TO MOVE CURSOR"
  12. 28 SYSP,0,21:PRINTLN$
  13. 30 I=23:IFN>MXTHENI=24:SYSP,4,23:PRINT"[158]PRESS THE [N] KEY FOR NEXT PAGE"
  14. 33 SYSP,6,I:PRINT"[159]PRESS [RETURN] TO LOAD FILE":POKE198,0
  15. 36 R=(R+1)*-(R<1):GOSUB57:T=0
  16. 39 GETA$:T=T+1:IFA$=""ANDT<20THEN39
  17. 42 IFA$=""THENR=1:GOSUB57:Y=Y+1:GOSUB60:GOTO36
  18. 43 IFA$=""ANDY+8<MX+1THENR=1:GOSUB57:Y=Y+8:GOSUB60:GOTO36
  19. 45 IFA$="[145]"THENR=1:GOSUB57:Y=Y-1:GOSUB60:GOTO36
  20. 46 IFA$="[157]"ANDY-8=>0THENR=1:GOSUB57:Y=Y-8:GOSUB60:GOTO36
  21. 48 IFA$="N"THENG=(G+16)*-(G<=N-16):GOTO15
  22. 51 IFA$=CHR$(13)THEN69
  23. 54 GOTO36
  24. 57 RL=Y-(8*-(Y=>8)):SYSP,X(-(Y=>8)),RL+11:PRINTR$(R);LEFT$(F$(Y+G),16):RETURN
  25. 60 IFY>MXTHENY=0
  26. 63 IFY<0THENY=MX
  27. 66 RETURN
  28. 69 IFS(Y+G)THENSYS52463
  29. 72 PRINT"[147]LOAD";CHR$(34);F$(Y+G);CHR$(34);T$(T(Y+G)):PRINT"";E$(Y+G);CHR$(9);""
  30. 75 POKE631,13:POKE632,13:POKE198,2:END
  31. 78 :
  32. 98 :
  33. 99 REM 0=NO WARP/DRIVE   0= ",8"
  34. 100 DATA 1 :REM NUMBER OF FILENAMES
  35. 101 DATA 1,"FILENAME",0,"RUN"
  36. 299 :
  37. 300 OPEN1,8,15,"I0":PRINT#1,"S: MENU":CLOSE1:SAVE" MENU",8:VERIFY" MENU",8
  38. 400 A$="MENU CREATOR":OPEN1,8,15,"I0":PRINT#1,"S:";A$:CLOSE1:SAVEA$,8:VERIFYA$,8:END
  39. 10000 POKE53280,44:POKE53281,54:POKE646,44
  40. 10001 NK=PEEK(45)+PEEK(46)*256-871:PRINT"[147]               BUILD MENU[146]"
  41. 10010 PRINT" INSERT DESTINATION DISK AND THEN PRESS
  42. 10020 [153]" THE [RETURN] KEY TO CONTINUE":[151]49154,0
  43. 10030 [151]198,0:[146]198,1:[161]A$:[139]A$[179][177][199](13)[167]10030
  44. 10040 [159]1,8,15,"I"::[132]1,E,E$,T,S:[160]1:[139]E[178]0[167][158]NK:FP[178]20484:[137]10060
  45. 10050 [153]" DISK ERROR:"E","E$","T","S:[128]
  46. 10060 [139][194](FP)[167]FP[178]FP[170]1:[137]10060
  47. 10065 [137]10075
  48. 10070 FP[178][194](49152)[170][194](49153)[172]256
  49. 10075 A$[178]"":CO[178]0:FP[178]FP[170]3::LI[178][194](FP)[170][194](FP[170]1)[172]256:FP[178]FP[170]2
  50. 10080 CH[178][194](FP):[139]CH[179][177]34[175]CH[167]FP[178]FP[170]1:[137]10080
  51. 10090 A$[178]A$[170][199](CH):FP[178]FP[170]1:CH[178][194](FP):[139]CH[179][177]34[175]CH[167]10090
  52. 10095 A$[178]A$[170][199](34):[139]CH[178]0[167]10210
  53. 10100 FP[178]FP[170]1:CH[178][194](FP):[139]CH[167]10100
  54. 10110 WD[178]1:SA[178]0:SS$[178]"RUN":[153]"LOAD BLOCK SIZEWAIT:"LI:[153]" FILENAMEWAIT: ";A$
  55. 10120 AN$[178]"Y":[133]" KEEP THIS FILENAME (YWAIT/NWAIT)  YCMDCMDCMD";AN$
  56. 10130 [151]198,0:[139][200](AN$,1)[179][177]"N"[167]10145
  57. 10135 [133]" ARE YOU SURE (YWAIT/NWAIT/)  NCMDCMDCMD";AN$:[139][200](AN$,1)[178]"Y"[167]10075
  58. 10140 [137]10110
  59. 10145 NF[178][194](49154)[170]1:[151]49154,NF:Q$[178][199](34)
  60. 10150 [133]" WARP/DRIVE (YWAIT/NWAIT)  YCMDCMDCMD";AN$:[139][200](AN$,1)[178]"N"[167]WD[178]0
  61. 10160 AN$[178]"N":[133]" LOAD WITH ',8,1' (YWAIT/NWAIT)  NCMDCMDCMD";AN$
  62. 10170 [139][200](AN$,1)[178]"Y"[167]SA[178]1
  63. 10180 [133]" STARTING STATEMENT  RUNCMDCMDCMDCMDCMD";SS$
  64. 10190 [153]"LOAD";[202]([196](100[170]NF),2);"DATA";WD;"CMD,";A$;",";SA;"CMD,";Q$;SS$;Q$
  65. 10195 MS[178][181](FP[173]256):LS[178]FP[171]MS[172]256:[151]49152,LS:[151]49153,MS
  66. 10200 [153]"G(null)10070":[151]631,13:[151]632,13:[151]198,2:[128]
  67. 10210 :[151]2,0:[143]                             *DELETE READ PART OF MENU *
  68. 10220 N[178][194](2):[151]2,N[170]1:N1[178]N[172]5[170]10000:[139]N1[177]10210[167]10240
  69. 10230 [153]"LOAD"[202]([196](N1),2):[153]"G(null)10220":[151]631,13:[151]632,13:[151]198,2:[128]
  70. 10240 [153]"LOAD":[129]I[178]0[164]4:[153][202]([196](I[172]10[170]10220),2):[130]:[153]"0REM"
  71. 10250 [153]"100DATN"[194](49154)":REM NUMBER FILENAMES":[153]"400":[153]"RUN300"
  72. 10260 [129]I[178]0[164]7:[151]631[170]I,13:[130]:[151]198,8:[128]
  73.